home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / tds / install-tds < prev    next >
Text File  |  1996-06-22  |  4KB  |  217 lines
  1. ; Installation script for Twilight Development System
  2. ; $VER: Install-TDS 2.11 (22.06.96)
  3.  
  4. (set @default-dest "SYS:")
  5. (set default_lang 1)
  6.  
  7. (if (< (/ (getversion) 65536) 37)
  8.   (abort "This program requires Kickstart 2.04 or greater to run !")
  9. )
  10.  
  11. (set destdir
  12.   (askdir
  13.     (prompt "Select where to install TDS.\nA new drawer will be created.")
  14.     (help @askdir-help)
  15.     (default @default-dest)
  16.     (newpath)
  17.   )
  18. )
  19.  
  20. (set @default-dest
  21.   (tackon destdir "TDS")
  22. )
  23.  
  24. (makedir @default-dest
  25.   (prompt "Creating Drawer TDS")
  26.   (help @makedir-help)
  27.   (infos)
  28. )
  29.  
  30. (copylib
  31.   (prompt "Installing Twilight Editor")
  32.   (help @copylib-help)
  33.   (source "Ted")
  34.   (dest @default-dest)
  35.   (infos)
  36. )
  37.  
  38. (copylib
  39.   (prompt "Installing Twilight Make")
  40.   (help @copylib-help)
  41.   (source "TMake")
  42.   (dest @default-dest)
  43.   (infos)
  44. )
  45.  
  46. (copylib
  47.   (prompt "Installing Twilight Reference Generator")
  48.   (help @copylib-help)
  49.   (source "TRefs")
  50.   (dest @default-dest)
  51. )
  52.  
  53. (copylib
  54.   (prompt "Installing Twilight Editor Frontend")
  55.   (help @copylib-help)
  56.   (source "Ed")
  57.   (dest @default-dest)
  58. )
  59.  
  60. (copyfiles
  61.   (prompt "Installing Converters")
  62.   (help @copyfiles-help)
  63.   (source "converters")
  64.   (dest (tackon @default-dest "converters"))
  65.   (all)
  66. )
  67.  
  68. (copyfiles
  69.   (prompt "Installing Converters Source")
  70.   (help @copyfiles-help)
  71.   (source "ConvSrc")
  72.   (dest (tackon @default-dest "ConvSrc"))
  73.   (all)
  74.   (infos)
  75. )
  76.  
  77. (set lang 
  78.   (askoptions 
  79.     (prompt "Which languages should be installed ?")
  80.     (help @askoptions-help)
  81.     (choices "English"
  82.              "Deutsch"
  83.              "Français"
  84.              "Italiano"
  85.     )
  86.     (default default_lang)
  87.   )
  88. )
  89.  
  90. (makedir (tackon @default-dest "catalogs"))
  91. (set n 0)
  92. (while 
  93.   (set language 
  94.     (select n  "english"
  95.                "deutsch"
  96.                "français"
  97.                "italiano"
  98.                "")
  99.   )
  100.   (
  101.     (if (IN lang n)
  102.       (
  103.         (if (<> 0 n)
  104.           (
  105.             (set catalog_dir (cat "catalogs/" language))
  106.             (copyfiles 
  107.               (prompt "Installing Catalogs")
  108.               (source catalog_dir)
  109.               (dest (tackon @default-dest catalog_dir))
  110.               (all)
  111.             )
  112.           )
  113.         )
  114.       )
  115.     )
  116.     (set n (+ n 1))
  117.   )
  118. )
  119.  
  120. (copyfiles
  121.   (prompt "Installing Catalogs Sources")
  122.   (help @copyfiles-help)
  123.   (source "catalogs/source")
  124.   (dest (tackon @default-dest "catalogs/source"))
  125.   (all)
  126. )
  127.  
  128. (makedir (tackon @default-dest "Docs") (infos))
  129. (set n 0)
  130. (while 
  131.   (set language 
  132.     (select n  "English"
  133. ;               "Deutsch"
  134. ;               "Français"
  135.                "Italiano"
  136.                "")
  137.   )
  138.   (
  139.     (if (IN lang n)
  140.       (
  141.         (set src_file (cat "Docs/" language ".lzh"))
  142.         (set dest_dir (tackon @default-dest (cat "Docs/" language)))
  143.         (makedir dest_dir (infos))
  144.         (working "Extracting " language " Docs")
  145.         (run (cat "lharc -a -n >CON: x " src_file " " dest_dir "/"))
  146.       )
  147.     )
  148.     (set n (+ n 1))
  149.   )
  150. )
  151.  
  152. (if
  153.   (exists "keyfile")
  154.   (copyfiles
  155.     (prompt "Installing Keyfile")
  156.     (help @copyfiles-help)
  157.     (source "keyfile")
  158.     (dest @default-dest)
  159.   )
  160. )
  161.  
  162. (if
  163.   (exists "TDS.key")
  164.   (copyfiles
  165.     (prompt "Installing Keyfile")
  166.     (help @copyfiles-help)
  167.     (source "TDS.key")
  168.     (dest @default-dest)
  169.   )
  170. )
  171.  
  172. (copyfiles
  173.   (prompt "Installing Icons")
  174.   (help @copyfiles-help)
  175.   (source "env/tds")
  176.   (pattern "#?.info")
  177.   (dest "envarc:tds")
  178. )
  179.  
  180. (if
  181.   (askbool (prompt "Do you want to use the eight colors icons ?")
  182.            (help "The eight colors icons have been designed for the MagicWB.")
  183.   )
  184.   (copyfiles
  185.     (prompt "Installing eight colors icons")
  186.     (help @copyfiles-help)
  187.     (source "Icons/")
  188.     (pattern "#?.info")
  189.     (dest @default-dest)
  190.   )
  191. )
  192.  
  193. (if
  194.   (askbool (prompt "Do you want to install the example projects ?")
  195.            (help "The example projects show how to use the features"
  196.                  " of the TDS for building new projects."
  197.            )
  198.   )
  199.   (copyfiles
  200.     (prompt "Installing Examples")
  201.     (help @copyfiles-help)
  202.     (source "examples")
  203.     (dest (tackon @default-dest "Examples"))
  204.     (all)
  205.     (infos)
  206.   )
  207. )
  208.  
  209. (startup "TDS"
  210.   (prompt "Adding assign TDS: command to the file user-startup")
  211.   (help @startup-help)
  212.   (command "assign TDS: " @default-dest)
  213. )
  214.  
  215. (makeassign "TDS" @default-dest)
  216.  
  217.